#!/usr/bin/perl 

use strict;
use warnings;
use Carp;

use DBProvidor;
use Data::AMF;

my $dbh = DBProvidor::connect();

my $sth = $dbh->prepare("select * from writes");

$sth->execute();

my $amf = Data::AMF->new( version => 0 );

print $amf->serialize($sth->fetchall_arrayref({}));
